
start
 8041 .out1 store
stop

cond
 *.robage 0 =
start
 -35 .eye5width store
 *.maxvel .dn store
stop

cond
 *.body 20000 < 
 *.nrg 3000  >
start
 100 .strbody store
stop

cond
 *.in1 4157 =
 *.in1 5748 = or
 *.eye5 0 >
 *.robage 0 >
start
 *.refxpos *.refypos angle .setaim store
 25 .shootval store
 1 .fixpos store
 -1 .shoot store
stop

cond
 *.in1 8041 =
 *.refeye 0 = or
 *.eye5 0 > and
start
 314 rnd .aimdx store
 *.maxvel .up store
 0 .fixpos store
stop

cond
 *.eye5 0 =
start
 30 *.velup sub .up store
 0 .fixpos store
stop

cond
 *.waste 100 >
start
 *.waste .shootval store
 -4 .shoot store
stop

cond
 *.nrg 20000  >
start
 624 .aimdx store
 50 .repro store
 0 .shoot store
stop


end

 